home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / lisp / energize / energize-shell.el < prev    next >
Encoding:
Text File  |  1995-02-25  |  3.9 KB  |  109 lines
  1. ;;; -*- Mode:Emacs-Lisp -*-
  2. ;;; Copyright (C) 1992-1993 by Lucid, Inc.  All Rights Reserved.
  3.  
  4. (require 'comint)
  5. (require 'shell)
  6. (require 'gdb)
  7.  
  8. (defun energize-comint-input-sender (energize-proc input)
  9.   (energize-send-region (energize-user-input-buffer-mark) (point)))
  10.  
  11. (defvar energize-shell-prompt-pattern "^(.*gdb) ?"
  12.   "*A regexp to recognize the prompt for the Energize debugger.")
  13.  
  14. (defun energize-debugger-mode ()
  15.   "Major mode for the Energize Debugger buffers.
  16. In addition to the normal cursor-motion commands, the following keys are bound:
  17. \\{energize-debugger-map}"
  18.   (interactive)
  19.   (comint-mode)
  20.   (setq comint-prompt-regexp energize-shell-prompt-pattern
  21.     comint-input-sentinel 'shell-directory-tracker
  22.     comint-input-sender 'energize-comint-input-sender)
  23.   (setq mode-line-process nil)
  24.   (energize-mode-internal)
  25.   (set-syntax-table c-mode-syntax-table)
  26.   (setq major-mode 'energize-debugger-mode
  27.     mode-name "Energize-Debugger")
  28.   (use-local-map energize-debugger-map)
  29.   (set (make-local-variable 'shell-dirstack) nil)
  30.   (set (make-local-variable 'shell-dirtrackp) t)
  31.   (set (make-local-variable 'gdb-last-frame) nil)
  32.   (set (make-local-variable 'gdb-last-frame-displayed-p) t)
  33.   (set (make-local-variable 'gdb-delete-prompt-marker) nil)
  34.   (set (make-local-variable 'comint-input-autoexpand) nil)
  35.   (run-hooks 'energize-debugger-mode-hook))
  36.  
  37.  
  38. (if energize-debugger-map
  39.     nil
  40. ;;  (setq energize-debugger-map (make-sparse-keymap))
  41. ;;  kludge!!
  42.   (setq energize-debugger-map (copy-keymap energize-map))
  43.  
  44.   (set-keymap-name energize-debugger-map 'energize-debugger-map)
  45.   (set-keymap-parent energize-debugger-map gdb-mode-map)
  46.   (define-key energize-debugger-map "\M-\t" 'comint-dynamic-complete)
  47.   (define-key energize-debugger-map "\M-?" 'comint-dynamic-list-completions)
  48.   (define-key energize-debugger-map "\C-c<" 'energize-debugger-up-frame)
  49.   (define-key energize-debugger-map "\C-c>" 'energize-debugger-down-frame)
  50.   (define-key energize-debugger-map "\C-c\C-f" 'energize-debugger-return)
  51.   (define-key energize-debugger-map "\C-c\C-c" 'energize-debugger-interrupt)
  52.   ;; should be quit-subjob
  53.   (define-key energize-debugger-map "\C-c\C-\\" 'energize-debugger-interrupt)
  54.   (define-key energize-debugger-map "\C-c\C-z"
  55.     'energize-debugger-interrupt) ; should suspend
  56.   (define-key energize-debugger-map "\C-c\C-d" 'energize-debugger-send-eof)
  57.   )
  58.  
  59.  
  60. ;;; Energize Debugger mode commands; it seems pointless to do this with advice.
  61.  
  62. (defun energize-debugger-step-line (arg)
  63.   "Step one source line in the Energize debugger."
  64.   (interactive "p")
  65.   (energize-execute-command "steponce"))
  66.  
  67. (defun energize-debugger-step-instruction (arg)
  68.   "Step one machine instruction in the Energize debugger."
  69.   (interactive "p")
  70.   (energize-execute-command "stepinst"))
  71.  
  72. (defun energize-debugger-next-line (arg)
  73.   "Step one source line skipping function calls in the Energize debugger."
  74.   (interactive "p")
  75.   (energize-execute-command "stepnext"))
  76.  
  77. (defun energize-debugger-continue-program (arg)
  78.   "Continue running program being debugged in the Energize debugger."
  79.   (interactive "p")
  80.   (energize-execute-command "continueprogram"))
  81.  
  82. (defun energize-debugger-up-frame (arg)
  83.   "Go up one stack frame in the Energize debugger."
  84.   (interactive "p")
  85.   (energize-execute-command "upframe"))
  86.  
  87. (defun energize-debugger-down-frame (arg)
  88.   "Go up one stack frame in the Energize debugger."
  89.   (interactive "p")
  90.   (energize-execute-command "downframe"))
  91.  
  92. (defun energize-debugger-return (arg)
  93.   "Finish executing current function in the Energize debugger."
  94.   (interactive "p")
  95.   (energize-execute-command "continueuntilreturn"))
  96.  
  97. (defun energize-debugger-interrupt (arg)
  98.   "Interrupt program or debugger command in the Energize debugger."
  99.   (interactive "p")
  100.   (energize-execute-command "stopprogram"))
  101.  
  102. (defun energize-debugger-send-eof ()
  103.   "Send an EOF to the Energize debugger."
  104.   (interactive)
  105.   (save-excursion
  106.     (insert ?\C-d)
  107.     (energize-send-region (1- (point)) (point))
  108.     (delete-char -1)))
  109.